## Exerccios de Regresses Lineares Simples
### Ana Carolina Luchetta

##Altura na Infncia e Na Vida Adulta
jovem<-c(39,30,32,34,35,36,36,30)
adulto<-c(71,63,63,67,68,68,70,64)
relao.altura <- lm(adulto~jovem)
summary(relao.altura)                       #Como o p  inferior a 5%, podemos dizer que h uma relao significativa entre a altura do jovem e do adulto.

plot(adulto~jovem)
abline(relao.altura)
esperado <- 2*jovem
abline(lm(esperado~jovem), col=5)
confint(relao.altura)
esperado                                       #Os dados esperados superam o intervalo de confiana. Pela reta traada no grfico j era possvel imaginar que a tese no seria corroborada.

##Seriemas e Carcars

aves                                           #percebemos que temos muitos NAs na tabela, e vamos substituir por 0.
aves$urubu[is.na(aves$urubu)] <- 0
aves$carcara[is.na(aves$carcara)] <- 0
aves$seriema[is.na(aves$seriema)] <- 0
aves
unique (aves$fisionomia)                        #percebemos que tem um ce que precisa ser alterado para Ce
aves$fisionomia[aves$fisionomia=="ce"] <- "Ce"  #substituio
aves                                            #agora podemos comear a trabalhar
class (aves$fisionomia)
aves$fisionomia <- factor(aves$fisionomia, levels=c("Ce", "Cc", "Cl"))

aves.ce <- aves[aves$fisionomia=="Ce",]
aves.cc <- aves[aves$fisionomia=="Cc",]
aves.cl <- aves[aves$fisionomia=="Cl",]

rel.ce <- lm (aves.ce$seriema ~ aves.ce$carcara)
rel.cc <- lm (aves.cc$seriema ~ aves.cc$carcara)
rel.cl <- lm (aves.cl$seriema ~ aves.cl$carcara)
summary(rel.ce)						#no h diferena para a localidade Ce, devido ao p baixo
summary(rel.cc)						#no h diferena para a localidade Cc, pois o p  muito baixo
summary(rel.cl)						#no h diferena para a localidade Cl tambm, deivido ao p.

par(mfrow=c(2,2))
plot(aves.ce$seriema ~ aves.ce$carcara)
abline(lm(aves.ce$seriema ~ aves.ce$carcara))

plot(aves.cc$seriema ~ aves.cc$carcara)
abline(lm(aves.cc$seriema ~ aves.cc$carcara))

plot(aves.cl$seriema ~ aves.cl$carcara)
abline(lm(aves.cl$seriema ~ aves.cl$carcara))




##Resduos ris

require(datasets)
head(iris)
iris_setosa<- iris[iris$Species=="setosa",]
str(iris_setosa)
setosa_sepala<-lm(iris_setosa$Sepal.Width~iris_setosa$Sepal.Length)
plot(iris_setosa$Sepal.Width~iris_setosa$Sepal.Length)
abline(setosa_sepala)
summary(setosa_sepala)

setosa_petala<-lm(iris_setosa$Petal.Width~iris_setosa$Petal.Length)
plot(iris_setosa$Petal.Width~iris_setosa$Petal.Length)
abline(setosa_petala)
residuo<- residuals(setosa_petala)
residuo
setosa_petala2<-lm(iris_setosa$Petal.Width~residuo)
plot(iris_setosa$Petal.Width~residuo)
abline(setosa_petala2)
summary(setosa_petala)
summary(setosa_petala2)

